CBarkPgmRegistry.CBarkPgmRegistry.1 = s 'CBarkPgmRegistry Class'
		CLSID = s '{1F29BA10-4697-11D2-ABFE-00A0CC21E3B7}'
	CBarkPgmRegistry.CBarkPgmRegistry = s 'CBarkPgmRegistry Class'
		CurVer = s 'CBarkPgmRegistry.CBarkPgmRegistry.1'
	NoRemove CLSID
		ForceRemove {1F29BA10-4697-11D2-ABFE-00A0CC21E3B7} = s 'CBarkPgmRegistry Class'
			ProgID = s 'CBarkPgmRegistry.CBarkPgmRegistry.1'
			VersionIndependentProgID = s 'CBarkPgmRegistry.CBarkPgmRegistry'
			ForceRemove 'Programmable'
			InprocServer32 = s '%MODULE%'
				val ThreadingModel = s 'Apartment'